home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / cat / char.i < prev    next >
Text File  |  1997-10-26  |  4KB  |  96 lines
  1. IMPLEMENTATION MODULE Char;
  2.  
  3. FROM SYSTEM IMPORT ASSEMBLER;
  4. (*$Z+,R-,S-,N+*)
  5. (*$L-*)
  6. PROCEDURE pUpper (): tpTable;
  7. BEGIN
  8.   ASSEMBLER
  9.     LEA Upper(PC),A0
  10.     MOVE.L  A0,D0
  11.     RTS
  12.  
  13. Upper:
  14.   tab:  DC.B $00,$01,$02,$03,$04,$05,$06,$07,$08,$09,$0A,$0B,$0C,$0D,$0E,$0F
  15.         DC.B $10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$1A,$1B,$1C,$1D,$1E,$1F
  16.         DC.B ' ','!','"','#','$','%','&',$27,'(',')','*','+',',','-','.','/'
  17.         DC.B '0','1','2','3','4','5','6','7','8','9',':',';','<','=','>','?'
  18.         DC.B '@','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O'
  19.         DC.B 'P','Q','R','S','T','U','V','W','X','Y','Z','[','\',']','^','_'
  20.         DC.B '`','A','B','C','D','E','F','G','H','I','J','K','L','M','N','O'
  21.         DC.B 'P','Q','R','S','T','U','V','W','X','Y','Z','{','|','}','~',''
  22.         DC.B '€','š','','A','Ž','¶','','€','E','E','E','I','I','I','Ž',''
  23.         DC.B '','’','’','O','™','O','U','U','˜','™','š','›','œ','','ž','Ÿ'
  24.         DC.B 'A','I','O','U','¥','¥','¦','§','¨','©','ª','«','¬','­','®','¯'
  25.         DC.B '·','¸','²','²','µ','µ','¶','·','¸','¹','º','»','¼','½','¾','¿'
  26.         DC.B 'Á','Á','Â','Ã','Ä','Å','Æ','Ç','È','É','Ê','Ë','Ì','Í','Î','Ï'
  27.         DC.B 'Ð','Ñ','Ò','Ó','Ô','Õ','Ö','×','Ø','Ù','Ú','Û','Ü','Ý','Þ','ß'
  28.         DC.B 'à','á','â','ã','ä','å','æ','ç','è','é','ê','ë','ì','í','î','ï'
  29.         DC.B 'ð','ñ','ò','ó','ô','õ','ö','÷','ø','ù','ú','û','ü','ý','þ','ÿ'
  30. (*
  31. _ch_ set 0
  32.        rept 96
  33.     dc.b _ch_
  34. _ch_ set _ch_+1
  35.        endr
  36. ;         `abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ
  37.     dc.b '`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~€šƒŽ¶€ˆ‰Š‹ŒŽ'
  38. ;         ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁ
  39.     dc.b '’’“™•–—˜™š›œžŸ ¡¢£¥¥¦§¨©ª«¬­®¯·¸²²µµ¶·¸¹º»¼½¾¿ÁÁ'
  40. _ch_ set 194
  41.        rept 256-194
  42.     dc.b _ch_
  43. _ch_ set _ch_+1
  44.        endr
  45. *)    
  46.   END;
  47. END pUpper;
  48.  
  49. PROCEDURE pLower (): tpTable;
  50. BEGIN
  51.   ASSEMBLER
  52.     LEA Lower(PC),A0
  53.     MOVE.L  A0,D0
  54.     RTS
  55.  
  56. Lower:
  57. tab     DC.B $00,$01,$02,$03,$04,$05,$06,$07,$08,$09,$0A,$0B,$0C,$0D,$0E,$0F
  58.         DC.B $10,$11,$12,$13,$14,$15,$16,$17,$18,$19,$1A,$1B,$1C,$1D,$1E,$1F
  59.         DC.B ' ','!','"','#','$','%','&',$27,'(',')','*','+',',','-','.','/'
  60.         DC.B '0','1','2','3','4','5','6','7','8','9',':',';','<','=','>','?'
  61.         DC.B '@','a','b','c','d','e','f','g','h','i','j','k','l','m','n','o'
  62.         DC.B 'p','q','r','s','t','u','v','w','x','y','z','[','\',']','^','_'
  63.         DC.B '`','a','b','c','d','e','f','g','h','i','j','k','l','m','n','o'
  64.         DC.B 'p','q','r','s','t','u','v','w','x','y','z','{','|','}','~',''
  65.         DC.B '‡','','‚','ƒ','„','…','†','‡','ˆ','‰','Š','‹','Œ','','„','†'
  66.         DC.B '‚','‘','‘','“','”','•','–','—','˜','”','','›','œ','','ž','Ÿ'
  67.         DC.B ' ','¡','¢','£','¤','¤','¦','§','¨','©','ª','«','¬','­','®','¯'
  68.         DC.B '°','±','³','³','´','´','…','°','±','¹','º','»','¼','½','¾','¿'
  69.         DC.B 'À','À','Â','Ã','Ä','Å','Æ','Ç','È','É','Ê','Ë','Ì','Í','Î','Ï'
  70.         DC.B 'Ð','Ñ','Ò','Ó','Ô','Õ','Ö','×','Ø','Ù','Ú','Û','Ü','Ý','Þ','ß'
  71.         DC.B 'à','á','â','ã','ä','å','æ','ç','è','é','ê','ë','ì','í','î','ï'
  72.         DC.B 'ð','ñ','ò','ó','ô','õ','ö','÷','ø','ù','ú','û','ü','ý','þ','ÿ'
  73. (*
  74. _ch_ set 0
  75.        rept 64
  76.     dc.b _ch_
  77. _ch_ set _ch_+1
  78.        endr
  79. ;         @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
  80.     dc.b '@abcdefghijklmnopqrstuvwxyz[\]^_'
  81. ;         `abcdefghijklmnopqrstuvwxyz{|}~€‚ƒ„…†‡ˆ‰Š‹ŒŽ
  82.     dc.b '`abcdefghijklmnopqrstuvwxyz{|}~‡‚ƒ„…†‡ˆ‰Š‹Œ„†‚'
  83. ;         ‘’“”•–—˜™š›œžŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁ
  84.     dc.b '‘‘“”•–—˜”›œžŸ ¡¢£¤¤¦§¨©ª«¬­®¯°±³³´´…°±¹º»¼½¾¿ÀÀ'
  85. _ch_ set 194
  86.        rept 256-194
  87.     dc.b _ch_
  88. _ch_ set _ch_+1
  89.        endr
  90. *)
  91.  
  92.   END
  93. END pLower;
  94.  
  95. END Char.
  96.